home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 85 / 085.d81 / edstar main (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  183 lines
  1. 5 poke650,255:print"";:goto30
  2. 10 xx=0:ifxy<760thenreturn
  3. 15 print"[207]ut of lines!!!":fort=1to500:next:print"[145]                 ":xx=-1:return
  4. 30 poke53280,6:poke53281,0:print"[147]":ifpeek(49408)=1then40
  5. 36 print"[147]           [208]lease wait..":load"edstar 5.o",8,1
  6. 40 gosub50:poke55,0:poke56,39:clr:s=10000:poke53272,23:tb=1503:goto60
  7. 50 poke1020,1:poke1021,19:poke1022,0:poke1023,39:return
  8. 60 ip=49448:ls=49430:mt=49433:mb=49436:sd=49415:sc=49412:sf=49418:lf=49421:lm=49442:mw=49439:dc=49424:ic=49427:ww=49445:cl=49409:md=49451:mi=49454:wc=49457:pr=49460:sp=49463:ca=49466:g1=49469:g2=49472:g3=49475:g4=49478:g5=49481:rd=49484:sysmw:gosub765
  9. 135 deffns(x)=x*40+9960:poke646,12:syscl:gosub300:gosub405:ln=1:goto145
  10. 145 ps=1465:poke53272,23:t$=" ":gosub715:goto155
  11. 155 getc$:ifc$<>""then175
  12. 160 pokeps,peek(ps)or128
  13. 165 getc$:ifc$<>""then175
  14. 170 gosub303:goto155
  15. 175 poke150,asc(c$):sysip:ifpeek(150)=0then270
  16. 180 onpeek(151)goto190,205,210,215,220,225,230,235,240,245,250,255,260,265
  17. 185 goto165
  18. 190 xy=ln:gosub10:ifxxthen200
  19. 195 gosub303:ps=1465:sysls,ln:ln=ln+1:syssc:sysmb,ln+8
  20. 200 goto280
  21. 205 gosub395:goto165:in
  22. 210 gosub330:goto165:cr
  23. 215 gosub345:goto165:cr
  24. 220 gosub355:goto165:cr
  25. 225 gosub380:goto165:cr
  26. 230 gosub475:goto165:^dl
  27. 235 gosub530:goto165:^il
  28. 240 gosub303:gosub635:gosub410:gosub725:gosub985:goto165:save
  29. 245 gosub805:gosub720:goto165:^pprinter
  30. 250 gosub310:goto165:de
  31. 255 gosub1315:goto165:^xe
  32. 260 gosub910:goto165:^hh
  33. 265 gosub1025:goto165:^ffons
  34. 270 lp=peek(49151+asc(c$)):pokeps,lp:ps=ps+1:ifps=tbthenps=1465:gosub430:sysls,ln:sysmb,ln+8
  35. 280 ifln>nlthennl=ln
  36. 285 goto155
  37. 300 fort=55736to55775:poket,7:next:return
  38. 303 pokeps,peek(ps)and127:return
  39. 310 ifps<1466thenreturn
  40. 315 poke150,ps-1465:gosub303:sysdc:ps=ps-1:return
  41. 330 ifps>1465thengosub303:pokeps,peek(ps)or128:gosub303:ps=ps-1
  42. 335 return
  43. 345 ifps<1502thengosub303:pokeps,peek(ps)or128:gosub303:ps=ps+1
  44. 350 return
  45. 355 ifln=1thenprint"             [211]tart of text[152]":gosub585:return
  46. 365 gosub303:sysls,ln:ln=ln-1:syssd:ifln>10thensysmt,ln-10
  47. 375 return
  48. 380 ifln>=nlthengosub575:return
  49. 390 gosub303:sysls,ln:ln=ln+1:syssc:sysmb,ln+8:return
  50. 395 pokeps,peek(ps)and127:poke150,ps-1463:sysic:return
  51. 405 :
  52. 410 print"[155] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":gosub303:fort=1to3:print" [221]                                    [221]":next:print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][145][145][145][145]";:return
  53. 430 xy=ln:gosub10:ifxxthenreturn
  54. 440 xf=0:ifpeek(tb-1)=32thenxf=-1
  55. 445 sm=fns(ln+1):poke251,int(sm/256):poke250,sm-peek(251)*256:fm=fns(nl):poke253,int(fm/256):poke252,fm-peek(253)*256:syswc:ifpeek(150)<>0thenpoke1020,12:syssd:sysmi:nl=nl+1:poke1020,1
  56. 460 sysww:ps=peek(150)+1464:sysls,ln:syssc:ln=ln+1:ifxf=-1thenps=1465
  57. 470 return
  58. 475 ifnl=0thenreturn
  59. 485 print"[196]eleting a line...":sm=fns(ln):poke251,int(sm/256):poke250,sm-peek(251)*256:sm=fns(nl+1):poke253,int(sm/256):poke252,sm-peek(253)*256:sysmd:poke1020,11:syssc:gosub50:ps=1465:nl=nl-1:sysls,ln:sysmb,ln+8:print"                   ":poke150,0:poke151,0:poke152,0:poke153,o
  60. 520 ifnl<lnthengosub355
  61. 525 return
  62. 530 :
  63. 535 xy=nl:gosub10:ifxxthenreturn
  64. 540 print"[201]nserting a line...":sm=fns(ln):poke251,int(sm/256):poke250,sm-peek(251)*256:fm=fns(nl):poke253,int(fm/256):poke252,fm-peek(253)*256:sysmi:nl=nl+1:gosub303:poke1020,11:syssd:gosub50:ps=1465:print"                    ":poke150,0:poke151,0:poke152,0:poke153,0:return
  65. 575 print"[197]nd of text
  66. 585 [129]t[178]1[164]40:[130]:[137]605
  67. 590 [151]54296,15:[151]54277,45:[151]54278,165:[151]54276,33:[151]54273,6:[151]54272,5:[129]t[178]1[164]200:[130]:[151]54276,32:[151]54273,0:[151]54272,0:[151]198,0:[142]
  68. 605 [153]"                            ":[142]
  69. 620 [141]410:[153]"cmdatnre you sure you want to exit? ((NULL)/(NULL))
  70. 625 getd$:ifd$=""then625
  71. 627 ifd$="n"thenow=0:return
  72. 628 ifd$="y"thenow=1:goto630
  73. 629 goto625
  74. 630 gosub410:print"[157][196]o you wish to [211][193][214][197] this file? ([217]/[206])
  75. 631 [161]d$:[139]d$[178]""[167]631
  76. 632 [139]d$[178]"y"[176]d$[178]"(NULL)"[167]635
  77. 633 [139]d$[178]"n"[176]d$[178]"(NULL)"[167][142]
  78. 635 [158]ls,ln:fx[178]17:[159]15,8,15,"i0":[160]15
  79. 640 [141]410:[153]"(NULL)ave as what? ($-str$right$(NULL))":[153]"(NULL)atn(NULL)val :";:[141]2000:fs$[178]k$:[139]fs$[178]""[167]630
  80. 645 [139]fs$[178]"$"[167][153]"load":[158]ca:[153]"":[137]640
  81. 650 fx[178]fx[171]1:fs$[178][200](fs$,fx):[139][201](fs$,1)[178]" "[167]645:[139]fs$[178]fi$[167]655
  82. 655 fi$[178]fs$:[141]410:[153]"(NULL)aving '"fi$"'":[159]15,8,15:[152]15,"r0:"fi$"=0:"fi$:ow[178][171]1:[132]15,a$:[139]a$[179][177]"63"[167]688
  83. 670 [153]"onascright$(NULL)val val(NULL)right$(NULL)(NULL)(NULL)! (NULL)eplace?((NULL)/(NULL))";:[141]590
  84. 675 [161]r$:[139]r$[178]""[167]675
  85. 680 [139]r$[178]"n"[167][160]15:[142]
  86. 681 [139]r$[178]"y"[167]685
  87. 683 [137]675
  88. 685 [153]" clr(NULL)k.print#":[152]15,"s0:"[170]fi$:[160]15
  89. 688 f$[178]fi$[170]",p,w":[141]410:[153]"(NULL)lease wait while saving.":[151]827,[195](f$):[129]c[178]1[164][195](f$):[151]827[170]c,[198]([202](f$,c)):[130]:fi$[178]f$:[151]251,(nl)[173]256:[151]250,256[172]((nl)[173]256[171][194](251)):[158]sf:[159]15,8,15:[132]15,er,er$:[160]15:[141]410:[153]"cmdstr$isk (NULL)tatus :"er","er$:[153]"(NULL)ress ((NULL)(NULL)atnlenval) when ready to continue
  90. 709 getd$:ifd$<>" "then709
  91. 710 sv=-1:return
  92. 715 :
  93. 720 gosub303:sysls,ln:gosub410
  94. 725 print"[152]([195][212][210][204])[159][201][152][146]nsert line   ([195][212][210][204])[159][211][152][146]ave text":print"([195][212][210][204])[159][196][152][146]elete line   ([195][212][210][204])[159][208][152][146]rinter":print"([195][212][210][204])[159][200][152][146]elp          ([195][212][210][204])e[159][216][152][146]it":ift$=" "thenreturn
  95. 745 getme$:ifme$=""then745
  96. 750 ifme$="d"orme$="i"orme$="p"orme$="h"orme$="s"orme$="x"thenreturn
  97. 755 goto745
  98. 765 print"[147][196]o you wish to load a text file? ([217]/[206])
  99. 766 [161]a$:[139]a$[178]""[167]766
  100. 767 [139]a$[178]"n"[176]a$[178]"(NULL)"[167][153]"load":[142]
  101. 768 [139]a$[179][177]"y"[167]766
  102. 769 [153]"load":[141]1260:[139]fi$[178]""[167]765
  103. 770 [158]mw:[151]250,17:[151]251,39:[151]252,nl[173]256:[151]253,256[172]((nl[173]256)[171][194](252)):[158]lf:t$[178]" ":[141]1295:[139]nl[179][177]0[167]795
  104. 790 [159]15,8,15:[132]15,s$:[160]15:[142]
  105. 795 [141]300:[142]
  106. 805 [158]ls,ln:[141]410:[153]"  * (NULL)(NULL)right$(NULL)(NULL) (NULL)val(NULL)(NULL) ascright$(NULL)val (NULL)(NULL) (NULL)(NULL)right$(NULL)(NULL)val(NULL) *":[153]"(NULL)ress ((NULL)(NULL)atnlenval) when ready to print":[153]"(NULL)ress ((NULL)val(NULL)(NULL)(NULL)(NULL)) to abort
  107. 825 getp$:ifp$=""then825
  108. 826 ifp$=" "then832
  109. 830 ifp$=""then825
  110. 831 gosub410:print"[208]rinting aborted":fort=1to699:next:return
  111. 832 open15,4,15:close15:ifst=0then835
  112. 833 gosub410:print"[208]rinter not detected":fort=1to699:next:return
  113. 835 open4,4,7:cmd4:lc=0:lp=1
  114. 845 ifnl-lp<120then865
  115. 850 fori=lptolp+59:rs=60:gosub885:next:ifpeek(203)=23then875
  116. 860 print:print:print:print:print:print:lp=lp+120:goto845
  117. 865 rs%=(nl-lp+2)/2:rs=rs%:fori=lptolp+rs-1:gosub885:next
  118. 875 print"";:getk$:print#4:close4:return
  119. 885 m1=fns(i):m2=fns(i+rs):poke151,m1/256:poke150,256*(m1/256-peek(151)):syspr:poke151,m2/256:poke150,256*(m2/256-peek(151)):syspr:return
  120. 910 gosub303:sysls,ln:print"[147]":print"[147][158]         [197][196][211][212][193][210] [200][197][204][208][160][211][195][210][197][197][206]":print"  [212]o access functions press ([195][212][210][204]) [198].":print"      [212]he next key does the job.":print"    [198]1 = [212]op of text,   [198]7 = [194]ottom":print"    [198]3 = [213]p 10 lines,   [198]5 = [196]own.":print"   ([195][212][210][204]) [211] = [211]plits lines
  121. 946 [153]"   (len(NULL)(NULL)(NULL)) chr$ = chr$lues lines":[153]"   (len(NULL)(NUL